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REM * 

REM * MSX - DRAW EDITOR 
REM * 

A ES 
REM 

REM + INICIALIZACION 
REM * Y PRESENTACION 
REM 

CLEAR 2000:MAXFILES=2 
COLOR 8,1, 1: SCREEN 

LINE (56,32) - (199,159) 

LINE (37,33) - (198,158) 
PSET(85,93) 


+10, 


170 PSET(134,73) 


1980 
LE( 


DRAW"M12. 


6, 73M125, 


190 [PSET(129,30) 
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19.712,1.571 


O DRAW"M93,60M99,50M102,73M103,73M106,60M112,60M118,85BM120,93M113,93:4110,80M1 
09 ,R0M106.93M99, 93M96, 280M95,80M92,93M85,93BM121,23M135, 93" 
190. "CIRCLE (135,83 


72M124,71M1249,70M1 
128,720),10:¿.1.571,4.713 


69m126,638M1498, é68BM152,60M128,60” ¿CIRCO 


200. DPAW"M137,10M133,81M139,382M139.83M137,85M118,85BM152,60M157,70M162, 60M170,6 
OM162,76M170,/93M162,23M157,83M152,93M199,93M152,76M148,68" 
210 PAINT(130,65) :PRESET (85, 110) 
220 NPEN"GRP Sse1 
230 PRINTHL, "DRAW EDITOR" 
240 PRESET(85,190)" 
250 "RAW"CSRSOLI7RAF1D2GILIBDIBRIVOIRAF1D2G1LSBDIBRID2R2UZR2BG2ZRAV2D2R2UZRZDZR2U2B 
UZ2LOBLEÉLOBR11BD1E1D4L5SR7RZUILZDZRIBRIRZD2LIR1U4AR2D4RZR2UZL2UZR2" 
260 FORK=0T02000: NEXTK 
270 DIM DM$(99):FOR N=1 TO 49 
280 READ DMS$(N); NEXT NM 
290 COLOR 1,8,8:5CREEN 2 
300 DPAW"C1RM7,0R242" 
10 FOR N=é6 TO 174 STEP 8:COLOR 15 
320 DM=DM+1:1F N=1ó66 THEN PRESET(19,158):PRINTH1, "BS" 
330 IF N<490 OR N>105-THZN.PRESET(7,¿N)¿FPRINTH1, DM$ (DM) ¿COLOR -1:PRESET(52,N):PRINT 
$41,DM$(DM+22) ELSE PRESET(5S2,N):DRAW"C11":DRAW DM$(DM): COLOR 11:FPRESET(64,N):PRI 
NTH1, DM (DM+22) 
340 NEXTN: DRAW"C1BM7, 187R5SZ2BRI3?7RSZ" 
, 350 COLOR 15;PRESET (66,184) 
360 PRINTH1,"(PULSA UNA TECLA)" 
[370 TF INKEYRE<>""THEN 370 
380 IF INKEYS " THEN 380 
390.DEFINT.ArZ:CP=15:C0S9=12:CB=1 
400 COLOR. CP,CS.CB¡ SCREEN 2:2 
410 SPRITES(1 HR$ (0) +CHRA$10) +CHAB(0) +CHAB(O0) +CHRB(127) +CHR$ (0) +CHR$(0) +CHRS(0) 
420 SPRITEGS(2)=CHR$(0)+CHRE1127)+CHR$(65) +CHRE(65) +CHRS (65) +CHRB (65) +CHR$(127)+C 
HR*(O) 
FO SPRITES(3)=CHR$(28) +CHR$(34) +CHR$(65) +CHR$S (605) +CHR$ (65) +CHRE (65) +CHRS(39) +CH 
es 22) 
440, SPRITES (4) =CHR$ (224) +CHR$(240) +CHR$(240)+CHR$(120)+CHR$(20) +CHR$(10)+CHR$(5) 
+CHRS (3) 
4950 SPRITES(S 
10) 
460 SPRITES (6) =CHR$ (28) +CHR$(349) +CHR$5(32) +CHR$ (28) +CHR$(2) +CHR$ (54) +CHR$ (23) +CHR 
$(0) 
470 SPRITER(?7)=CHA$(32) +CHAB6(32) +CHRB(32) +CHRB$(32) +CHR$ (32) +CHR$(32) +CHR$(02)+0H 
peso) 
480 APRITES(2)=CHRRA (65) +CHRB (99) +CHR$(59) +CHR$128) +CHRG$(28) +CHRS (54) +CHRB (29) +C0H 
R$(65) 
490 SPRITES(9)=CHR$(170) +CHRG(89) +CHRAB(170) +CHR$(84) +CHR$(170)+CHRS (54) +CHR$(170 
VACHPG LO) 
500 HR (255) +CHR (255) +CHR$ (255) +CHR$ (0) +CHRS (0) +CHR$(0) +CHR$(0) +CHRS (0) 
sto HRS (072CPRBCO)+CHRS (0) ¿CHAS (0) +CHAB(O)+CHRS (2595) +CHR$(2395) +CHR$ (259) 
520 C$=CHRAS(254) ¿CHA 9)+CHR$ (254) +CHR$(0) +CHR$(0) TEHRB(0) +CHRS(0) +CHR$(0) 
530 Y CHAPO) +¿CHPRBG(1O)+CHRE (O) ¿CHABG(O) +CHRS10) +CHRS (259) +CHRS (254) +CHR (259) 
540 SPRITES(10)=AH$+Bé+0354 DG 
550 AR=CURR (0) +CHRR (0) 4CHRB(0) +CHR$(255) +CHR$ (255) +CHRS$ (255) +CHR$ (255) +CHR$(235) 


CHAS (3) +CHR$ (30) +CHR$ (40) +CHRE(28) +CHR$(10) +CHk $100) +CHRS (5) +CHRS 


560 RECHPS (255) ¿CHAS (255) +¿CHRG (255) +CHR$ (255) +CHR$ (235) +*CHR$ (0) +CHR$(0) +CHR$(0) 
570 0$=CHRS(0)+CHRS (0) ¿CHR$(0) +CHRAS(254) +CHAB(259) +CHR$1(1254) +CHR$ (254) +CHR$(2549) 
5820 DH=CHA$ (254) +C HARE (259) +CHPG (254) +CHRG (259) +CHRE (254) +CHR$ (0) +CHR$ (0) +CHR$(0) 
590 SPRITES(11)=AG+BRF+CH4DS 

600--SPRITES(1 HABLO) 4CHPRGL16)4CHARE(O) +CHRE (O) +CHRB10)+CHR$(0) +CHRB(0) +CHR$(0) 


610 SPRITES(13)= 
0) 
620 AR=CHRS(0)1+CHRE(115)+CHRB(34) +CHAG (34) +¿CHRB (39) +CHRA$(35) +CHR$ (0) +CHR$(0) 


HRS (146) +CHRG (90) +CHRS (16) +CHRG (0) +CHRS (0) +CHRS (0) +CHRS (0) +CHRG 
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PECHRE (0) +CHRS (0) +CHRE (0) +CHRS (0) +CHR$(0) 
1RB1143)4+CHR5 (158) +CHR$ (1949) +CHR3 (144) +CHR$ (0) +CHR$(0) 


570 RERTURS (O) CHAR (O) CHA 
290 CS=CHPS (0 cn La 
1DH5=PS 

£50 SPRITER(19)=AR+PRC RDA 

660 AS=CHPR (2595) CURS (255) CHA 
$(0) 

670 CH=CHRF CANT CHAR (25G) ECHA) CHRIS) ECHES (ZII) FCARE (254) +CHRS (254) FUBR 
$0) 

580 SPPTTES (159) =AR+BB+CH4DA 

490 EPASE [DMS:GOSUB 3350 


¿CARS (255) +CHRE 1255) +OHRB (255) +CHR$ (235) +CHR 


200 PEm 
710 REM + * 
720 ¡PEM Y ACTIVACION COMANDOS * 
730 PEM 4 * 
740 REM 


2580-0N.-5TRIG GOSUB 2100 

760. QM. KEY. GOSUB 2170,2300,.2320,2340,2360:S1=1:52=2 
770 |STRIG(0)0M:kKEY(1)0N 

780 *QN STOP GOSUB 1490:STOP ON 

770 ¡TF FSA0 AND DR(S)=S THEN 980 

K$=INKEYS$:; D=STICK (0) 

TFP=SFORP=9THENXS=-10:GOTO 960 

IFD=1THENY=Y-1 

TFDT=2THENX=X+ 1: YY - 1 

IED=3THENN=X+1 
TFD=4THENX=X+ 1: 
TFD=3THENY=Y+I 


=Y+1 


TFD=6THENX=X-1:Y=Y+1 
mE) 


IFD=7THENX=X 
IFD=8THENX: 
IFX<OTHENX=0 
IFX>255THEN 
TIFY<4OTHENY=0 
IFY>191 THEN 


=191 
IF FS>O AND DP(5)>3 THEN 980 
xS=X-3:Y3=Y-2 

PUT SPRITE 49, (X5,YS),15,12 
970 PUT SPRITE 5, (X5,YS),1/13 


CHR$(13)THEN-P=4 
CHAR (2) THEN P=2 
1000 TFK$=CHR$ (18) THEN 
1010 IFK$=CHR$(127) THEN 
HRS (24) THEN P=5 

HR$ (9) THEN GOSUB 1700 
TFKS$=CHR$(11) THEN GUSUB 2470 

QN-P -GOSUB 1140,1260,1420,1430, 1560 
OM FF| GOTO 1060 

GOTO 290 

-10:RETURN 960 


EEE 


SUB. DISE%O FIGURA * 


¿CO(R)=CP:DR(R)=FD:DR$(R)=CH$ 
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1F..FD=4. AND. FR=1 THEN PRESET(XA(R):VA(R)) 
GOSUB 1800:R=R+1:CO(R)=CP:¡DR(R)=FD;ChH$="" 
IF FD=3 THEN XA(R)=XA(5):YA(R)=YA(S):FR=1 ELSE XA(R)= 
IF FD=S THE53 PSET(X,Y):STRIG(O)ON:FR=1 
P=0:F5-=0:3=R:PETURN 

PEM 
»om 
REM 
REM 
REM 
REM 
TF FD=5 THEN X=XA(R): 


(YALR)=Y+FR=O 


SUB.CANCELACION 
FIGURA 


de de 
A Koko 


1F S THEN 1350 
IF "DR 

CD=C SOSuB 1800 
FOR S4T0..-2=.4 


1710 XA (N)=XA(N+1):VA(N)=YA(N+1):XB(N)=XB(N+1):¿VB(N)=Y4B(N+L) ¿CON =CÓ (NL) DRA) 
=DP (N+1)*DPS(N)=DR$(M+1) 

1320 NEXT M:R=R-1 
THEN 
IF OR=S AND FR 
P=01F5=0* 0H 
PEM 


1F ER 


¿VATRITIFR=I 


REM * * 
PEN? SUB. PARPADEO FIGURA A 
REMO PRECEDENTE/SIGUIENTE —*k 
REM Xx x 
Em 

TF OS9P-1 TH 

TE ALO THEN! 

E 9=0 THEN RETURN 

TF ODR/S)=4 THEN FS=1 ELSE FS=0 


cD=ra 


Sue 1200 


FOR KO TO SQINEVT 43157 FD=S THEN 


ja 1800 


VAR Chih 
AD=C013):6c 


RTM 
SEM 
PAM 
» 2UR, PARPADEO 
REM FIGUPA ACTUAL 
* 


ko ok 


1540 5En 
1550 Sem 


1540 1 


=150 TUEN 1570 


TFCFSENTRENFS 
S=PIOOIRI=CPIDAIA) 


SUB.F13. MUEVO -ORIGEN 
FIGUPA ¡A DISEMAR 


or 
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1690 FPEM 
IF OP30 OR R=100 THEN RETURN 

1F FR=ITHEN PRESET(XA(R).YA(R)) 
PSET(X, Y) ¿CPIXA (RO = YA (R)=Y 
FP=1:13=R RETURN 

FEM 
1750 REM 


1760 REM 
1770 REM 
1720 REM 
1790 REM 
1800 ON DR(S) GOTO 1810, 1820,1830,1850,1910 

1810 LIME(XA(S),VA(S))-(XB(5).Y1B(S)),CD: RETURN 
1820 LINE(XA(S),VA(S))-(XB(S) ,YB(5)),CD, BIRETURN 
1870 RX=ABSIXA(S) BLA BS(YA -YB(S5)) 
1890 CIROLE(AALEL,YALS).) PRARXC2Z+RYA2),CD 
1870 PUT SPRITE 4, (XB(S)¿YB(5)),CD,4 

1860 PUT SPRITE 5, (NB(S),YB(15)),CD/4 

1870 IF FS3O AND P=1 THEN 1890 

1880 FORK=0T020: NEXTK: RETURN 

TRIO PRESETINE (5), VB (5)) 

1900 PAINTIXB(S),YB(S)), CD: RETURM 

1910 TF S¿(R.THEM 1990 
1920 PUTSPRITES, (XB(S),YB 
1930 PUTSPRITE YB (5)-1);CD,9 

1990 JS=INK! THEN 1990 

1950 K$=]$:1F LEN(CH$)=255 THEN 1990 

1960 TF ASC(TS5)=1 THEN J%"INKEYS:I$=CHRS(1)+J$: GOTO 1980 
1970 1F AFC(IG)CIZ OR ASC(I$)=127 THEN 1990 
1900-GOASUR-201010HH=CH$+J8 

1990 COLOR CD:PRESET.(YA(5).YA(S)) 

2000 PRINTH1,DP$(3): RETURN 

2010 IF Y+191 THEN PETURN 1990 

2020 1F ¡2408 Nx=x+2ELSEX=0: Y=Y+8 


SUB, SELECCION FIGURA 
A  DISEMAR 


Ro ko. 
* kk 


1.94% (RYL1E-05)/(RX+LE-05) ¿RETURN 


-1),€D,9 


2070 RETURN 


2090 PEM 


2050 PEM Y * 
2040 REM» SUB. MOVIMENTO * 
* PLUMA 1/8 PUNTO *k 
1 * 
¿PETURN 
* 
SUB. SELECCION * 
OPCIONES MENU. * 
* 


2160 REM 
2170 £WA4P 51,52;0N S1 GOTO! 2180,2260 
2180 FOR N=2 TO S:KEY(N)OFF:NEXT N 


2190 YO0=-201FF=0:GOSUB 2370 
2200 TF P=5S PND F AND CH$ 
2210-15 FD=4- THEM 


* THEN X=XA(R):Y=YA(R):FS=1 


8 - AMIGOS DEL MSX - 1987 


=N) 33 
THEN 55=0:G0TO 2470 
CP,CS, CRBIRETURN 

2 TO S:KEY(N)ON:NEXT ON 


o 


OSUB 2370 
GOTO--1080 


CB>15 | THEN CB=0 


+1:1F CS>15/THEN C3=0 
GOTO 7 
P=CP+1:1F CP>15 THEN" C 
OTO 2370 
FD=FD+1:1F-FD>8- THEN FD=1 
PUT SPRITE 3, (XC,+YC),CB,10 
PUT _SPRITE 
PUT SPRITE 
RETURN 

PEM 

REM * * 

REM * 

REN % 

REM * * 

REM 

COLOR CP,CS,CB:SCREEN 2 

K$="":1F R<1 THEN 2510 

FOR $=0 TO R-1 

CD=CCO(S):0N DR(S) GOSUD 1810,1220,1830,18?0,179?0:NEXT S:P=0:F5=0 
PSETIXACR), YA(R)),CO(R) RETURN 

REN 

PEA O * 

REM 

REM 

REM * * 

REM 

IF R=0 THEN RETURN 

FX=66:G0SUB 3220 

PRINTH1, "saving data draw" 

ON ERROR GOTO 326: JIPEN"CAS:" FOR OUTPUT ASH2 

PRINTH2,"data"s", 
FOR 5=0 TO R 
PRINTHZ,XA(S)¡YA(S)iXB( 
NEXT: 5: CLOSENZ2 

REM 
REM 
REM 
REM 
REM 
REM 
NESNF+1:1F NF>99 THEN NF=1 
NES="CAS:DPAV"+MIDS(STRS(NF),2) 
FX=66:1F-NF>9 THEN FX=62 

GAS. 3230 

PRINTH1, "saving "+NF$:COLOR 15 
NR=0* OPEN NF$ FOR OUTPUT ASHZ 


(SI)¡CO(S)GDRIS)¡ "o MIDRB(SIA "M4 


*k** 
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AA OOOO 
"REM_AX *” 
2800 NR=NR+1O0:PRINTAZ. NR: "REM Xx M3X DRAW EDITOR x" 
2810 NR=NR +10: PRINTHZ,NR * *" 
2820 MRSNRE POS PRINTRE, HR GO REM ROO 
230 NR=MRETOTPRINTRZ, MR "REM" 
2840-MRENRALOTPRINTAZNREMREM— 0 PUELSA—RÚUNA—para- vere 
2250 NR=NR+LOPRINTRZ MRIMREM econo eL... DISERO.. . . 
2R6O.MRAFNR+ 10 PRINTRZ. NR "REM" 

¡PRINTHZ,NR+t "COLOR: 


MIDS(STRB(CS¿ ¿214 ", "¡MIDS(STRS(CB), 2) 
2820 MR=NR+10:PRINTH 
2890 FOR 3=0 TO R-L0NF 
2900 AS=MIDS(STRE(A 
2P10-RS=MIDE(STRE(YA(S)),2) 
2920_CH=MIDHLSTRS (MB (S).2..2) 

R9TO DS=MIDP (STPS (YB (5) ),2) 

7900 ESMIDA(STRS(CO(S)),2) 

2950 ON DR(S) GOSUB 2930,2790,3000,3020,3030:MEXT 5 
2950 NR= NR+10:PRINTHZ,NRi "GOTO" ¿NR 
2970 CLOSER21FD=1:G0TO 2970 

2980 PRINTRZ NR ULINE CAB Be 
2990. PRINTHZ,NRi "LINE ("Al E TS 
3000 PX=ARS(XA(S)-XB(5)):RY 

1 M(RX+H1IE-05) 

3010 PRINTHZ,NRi "CIRCLE ("Asi r," 
(REV) 42): RETURN 

3020 PRINTHZ.N 
3030 PRINTHZ, MR: 
$134): RETURN 


"OPEN" ¡CHR$(39)3 "GRPI"¡CHR$(39)5 "ASHI" 


844 14D") 
CBA, "AD" 


Mess P¡MIDBS(STRS 


"PRESET("CB5" 
COLOR"4ES1 


FDBG UM) MG PIPAINTOMO53", "1D "),"¡ESIRETURN 
¿PRESET(P' 144 $3") +PRINTHL, CHR$(34)+DR$(5) 1 CHR 


3040 REM 
FO5O REM + * 
3060 REM % SUB, INPUTH DATOS DISERO * 
3070 REM * * 
FORO REM 


2090 FX=66:GOSUB-3220 

3100 PRINTHI, "imputa data draw" 

3110 $=0:0N ERROR (GOTO 3250: 0PEN"CAS:;” FOR|INPUT ASHZ 

3120 _INPUTRZ,DDS.R,CS.CB_ | 

3130 FOR 3=0 TOR 

3340 INPUTHZ,XA(S), YA(S),XB(S),YB(S),C0(S).DR(S),DRS5(S):NEXT S:1F DRIR-1)<3/0R D 
RIP-11=4 THEN [FR=0 ELSE FR=i 

3150 CLOSERNZ:FD=1: GOTO 2470 


3160 PEM 

3170 REM % * 
3180 REM A SUB.GRAPH. 1/0 Y * 
3190 REM * CONTROL DE INTERRUPCIONES * 
3200 REM % * 
(3210 REM 


3220 LINE (56, 181)-(200.191),1,B 
3230 LINE(S5éó, 182)=(200, 190), 14, BF 
3240-PSET(FX,183) ,114: COLOR.-11 RETURN 
3250..R=S 

3260 RESUME 2970 

3270 REM 
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REM. * 
REM_X SUB. CANCELACION * 
REM * TOTAL DEL DISE%XQ * 
REM %* * 
REM 


ERASE XA, YA.XB.YB,CO,DR.DR$:P=0 
R O COLOP CP,CS,CB:SCREEN 2 
DIM XA(100)+.YA(100),XB(100),YB(100)+» 


01100) ¿DR (100) ¿DR$(100) 


I F ¿XC=120 
X=128:Y=95:XA(R) ¿YA(R)I=Y 
CO(R)=CP:FR=1:PSET(X, Y) : RETURN 
REM 
REM * 


* 
PEM * SUB. ILUSTRACION: MENU  * 
REM + 
REM 

3490 DATA <F1>.<F2>,<F3)>.<F9)>:<F 5), BDSRÓ, DSRÓUSLS, BD2D2F2R2E2U2H2L. 261, R2FILIDIRS 
F4D1IL1H94L 1, BOSBRIR3E1H1L2H1E1R3BU1BL2D6, BDOSBRIF1r2E1U1H1ILZH1IVIELRZF1:BRIDGRA, BD1 
F5RIHSBRIGSRIES, <CUR»>, <SPC>+,< TAB?) ¿SEL>¿ <DEL), < INS, < >, <RET>+ <HOM> 
3450 DATA activa menu/programa «¿Cambia color borde... 


.. ¿cambia color fondo. 
¿cambia color 1? plano...."selecciona opciones.......",=linea,=rectangulo,=c 
irculo-elipse,=paint,=carecteres,=salva a cinta,=carga de cinta,=cancelacion tot 
a 

3460 DATA mueve la pluma... 1... «¿mov.pluma 1/8 punto..... «+ fila origen de fia 
ura, parpadeo fisura actual..,parpadeo fig.precedente..,parpadeo fig.siquiente... 
¿cancela fia. parpadeante,diseba fio.parpadeante,continua el diseño entero 

3470. REM 


3480 REM * * 
3490 ¡REM * SUB. MENSAJE * 
3500 REM + SATURACION MEMORIA * 
3510 REM * * 
3520 REM 


3530 YE=10:S3=14:S4=1;FOR N=1 TO 8 
3590 SWAP S53,54!GOSUB 3570:NEXT N 
3550 YE=-20;GOSUB 3570 

3560 P=0:FS5=0: RETURN 

3570 PUT SPRITE 15, (120,YE),19 

3580 PUT SPRITE 14, (120,YE),S3 

3590 IFS3=1THENPLAY"S1MB000L3204M40" 
3600 FORK=0T050: NEXTK: RETURN 
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5R 
10 

20 

30 

40 

50 

$0 

70 

80 

90 

100 
110 
120 
130 
130 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
290 
300 
310 
320 
340 
=50 
360 
370 
380 


EM 
z=0 
COLOR 5, 1,1:SCREEN 2,1 
KEY OFF: 
OPEN"arp:" FOR OUTPUT ASH1 
LINE (20,0)-(240,4),15,BF 
LINE (20,90)-(24,191),15,BF 
LINE (20,191)-(240,185),15,BF 
LINE (236,148) -(240,0),15,BF 
LINE (50,0)-(53,60),15,BF 
LINE (50,60)-(75,63).15,BF 
LINE (85,30)-(105,33),15,BF 
LINE (105,30)-(108,90),15,BF 
LINE (135,0)-(138,60),15,BF 
LINE (105,90)-(185,93),15,BF 
LINE (182,60)-(185,60),1 
LINE (185,60) -(165,63),15,BF 
LINE (145,60)-(168,35),15,BF 
LINE (165,32)-(200,35),15,BF 
LINE (213,62)-(216,18),15,BF 
LINE (216,145) -(240,198),15.BF 
LINE (216,145)-(150,148),1S,BF 
LINE (153,145)-(150,125),15,BF 
LINE (182,90)-(185,120).15,BF 
LINE (150,128)-(120,125),15,BF 
LINE (123, 125)-(120,148),15,BF 
LINE (20,155) -(P0,158),15,BF 
LINE (120,125)-(90,128),15,BF 
LINE (50,155)-(53,93),15,BF 
LINE (50,93)-(180,90),15,BF 
RESTORE 970 
FOR I=1 TO-B:READ DS 
5%=3$+CHRSIVAL ("RbD"+DS)) NEXT 1 
TOR AS TO 
SPRITES (X)=S$:NEXT_X 
RESTORE 1050 
FOR I=i TO B8:READ Es 
BESBSACHAS (VAL ("Lb"+E$))iMEXTI 
SPRITE $6(7)=B$ 
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390 RESTORE 1130 
400 FOR I=1 TO S:READ F$ 

410 AS=A$+CHRS (VAL ("Rb"+F$)):MEXT 1 
420 FOR X=8 TO 10 

430 SPRITE $(X)=AS:NEXT X 

440 RESTORE 1210 

450 FOR I=1 TO S:READ G5$ 

460 C$=C$+CHR$(VAL("Lb"+G$)):NEXT 1 
470 FOR X=1 TO 3 

480 SPRITES(X)=C$:NEXT Xx 

490 
500 
510 
520 UN=110: 
530 SPRITE ON 

540--ON -SPRITE GOSUB-820 

550 T=STICK(0) 

560 IF T =3 THEN X%=X%+5.3:1F POINT (X%+8,K%+8)=15 THEN GOSUB 1290 

570 IF X%M>225 THEN X%=225 

580 1F T=7 THEN X%=Xx%-5:1F POINT (X%+3,K%+10)=15 THEN GOSUB 1300 

590 IF X%<10 THEN X%=215:Z=Z+10:K%=160:1M4=M4+1:Z=24+1:RW=RM+ LIV VA + LUV IGP 
%=P%+1 

600 IF Z=50 OR Z=150 OR Z=250 THEN GOSUB 1330 

610 IF T=1 THEN K%=k%-5: IF POINT (X%4+5,K%)=15 THEN GOSUB 1310 

620 1F T=S THEN K%=K%+5.5:1F POINT (X%+5,K4+t15)=15 THEN GUSUB 1320 

$30 PUT SPRITE 0, (S%,165),2,1 

640 5%==2%+M% 

650 1F 5%(25 OP S%)105 THEN M%=-M% 

£60 PUT SPRITE 1, (129,9%),13,2 
670-04=0%+Z% 

$20 TF 04130 MR 04165 THEN ZY 
£90 PUT SPRITE 2,(218,E%),4,3 
700, EN=E%+R% 

710 1F E%<10 OR E%>125 THEN R%=-R% 

720 PUT SPRITE 3, (30,1%),5,4 

730 TR=TRHIY% 

740 1F T%<10 OR T%+135 THEN Y%=-Y% 

750 PUT SPRITE 4, (U%,69),7,5 

760 U%=U%+P% 

770 1F UM<110 OR UN>165 THEN Pe=-P% 

780 PUT SPRITE 5, (L4,40),10,6 

P90 LA=L%+V% 

800 IF L%<170 OR L%>200 THEN V%=-U% 

B10 RUT SPRITE 6, (X%,K%),8,7 

820 PUT-SPRITE-7; (75,/115»,11,8:FOR Tel TO-S:NEXT-T 
830 PUT SPRITE 7,(75,115),11,11 

840 PUT SPRITE 8;(200,25),1¿P:FOR T=1 TO SINEXT 1 
850 PUT SPRITE 8,(0,25),11,12 

360 PUT SPRITE 9,(70,25),11,10:FOR T=1 TO S:NEXT T 
870 PUT SPRITE 9,(70,25),1,13 

380 GOTO 550 

890 SCREEN O 

900 LOCATE 7.10: PRINT"TE- HAN -COJIDO" 

910 LOCATE 8,15:PRINT"PUNTOS: "+ 


1 
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920 PLAY "14918dr64d14edr5fia" 

930 LOCATE 3,22:PRINT "OPRA PARTIDA S/N” 
940 AS=INKEYS: IF A$="s"OR A$="S"THEN RUN 
950 IF A$="n" OR As="N"THEN CLS:PRINT "ADIOS":END 
560 GOTO 940 

970 DATA 00100100 

980 DATA COT111OO 

990 DATA 01111110 

1000 DATA 01111110 

1010 DATA o1l1oo11o 

1020 DATA 00111100 

1030 DATÁ 00011000 

1040 DATA 00011000 

1050 DATA 00101000 

1060 DATA 00101000 

1070 DATA 00101000 

1980 DATA 00111000 

1090 DATA 01010100 

1100 DATA O1111100 

1110 DATA O1101100 

1120 DATA 00111000 

1130 DATA 10010010 

1140 DATA O1010100 

1150 DATA 00111000 

1160 DATA 11101110 

1170 DATA 00111000 

1180 DATA 01010100 

1190 DATA 10010010 

1200 DATA 00000000 

1210 DATA 

1220 DATA 

1230 DATA 

1240 DATA 

1250 DATA 

1260 DATA 

1270 DATA 

1280 DATA 

1270 FOR D=1 TO 200:NEXT :X%=X%-10: RETURN 
1300 FOR TO 200:NEXT %+ 10: RETURN 
1310 FOR 1 TO 200:NEXT +10: RETURN 
1320 FOR D=1 TO 200:NMEXT D:K%=k%-10: RETURN 
1330 SCREEN O 

1340 PLAY "120cró4cródcródld4fare” 

1350 PLAY "120cró4cródcró4l4fara" 

1360 PLAY "l6fró9116ferógedrógdez” 

1370 FOR X=1 TO 10 

1380 Z=Z+5:LOCATE S5.9:PRINTP"SO bonus points! puntos :":Z 
1390 FOR F=1 TO SO:NEXT F 

1400 LOCATE 5.P?:PRIN SPC (27) 

1410 FOR F=1 TO 48:NEXT F 

1420 NEXT Xx 

1430 COLOR 15,1.1:SCREEN 2,1:KEY OFF 

1104 LET-50 

1450 END 
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10 
20 
30 
40 
50 
="A 
21 
60 
70 
80 
do] 
100 
110 
120 
130 


140,6 


150 
160 
170 
180 
1909 
200 
210 
220 
230 
240 
250 


HOJA ELECTRONICA 


REM TABLERO ELECTRONICO 
WIDTH40: KEYOFF: CLEAR1O000O 
ONERRORGOTOZ2790 
0F%=3: 5C%=0: GA%=17-0F%: NL%=0:PG%=1:ML%=50 
DIMYA$(100):FOR K%=1 TO 26: YA$(K%)=CHR$ (K%+64) ¡NEXT:FOR K%=1 TO 26: YAS(K%+26) 
"+CHR$5(K%+64) ¡NEXT:FOR K%=1 TO 26: YA$(K%+52)="B"+CHR$5(K%+64) ¿NEXT:FOR K%=1 TO 
1YAS(K%+78)="C"+CHR$(K%+64) : NEXT 
GOTO 2860 
RUM 
CLS:LOCATEO, 18:LINE INPUT"Mumero de filas: 
IFMR%< 19THENMR%=149 
LOCATEO, 18;LINEINPUT"Numero de columnas; " 
IF MC%<4THENMC%=49 
DIMAR$ (MC%, MR%) , AFS(MC%, MR%) , TP% (MC%, MR%) 
xS%=1:YS%=1:XC%=1:YC%=1 
OSUB 1890 
LOCATE1,20:PRINT"funcion”?”+SPC(30):PRINTSPC(40) 
A$=IMNKEYS$: IF As=""THENIG6O 
LOCATE1,18:PRINTSPC(39) 
cu SC(A$): IF CU%>96 THEN CU%=CU4-32 
XDA=XS%+XC%-1: 1D%=YS%+YC%-1 
TFCUA>=2BANDCU%<=3 1 THENGOSUB310: GOTO1SO 
TFCU%=73THENGOSUB470: GOTOLSO 
IFCU%=67THENGOSUB790: GOTO130 
IFCU%=82THENGOSUB9SO: GOTOLIJO 
TFCU%=S58THENGOSUB1OS60: GOTO1SO 
IFCU%=54THENGOSUB1070: GOTOLSO 
IFCU%=76THEN2940 
TFCU%=71THENGOTO130O 
IF CU%=S3THENGOSUB1380:G0TO130 
1F CU%=70THENGOTO1860 
GOTO160 
TFCU%<>28THEN35O 
TFXC%=9ANDXS%<MC%-3THENXS%=X3%+1: GOSUBI1890: RETURNELSEIFXC%=4THENRETURN 
TFXC%=1THENLOCATEXO%, YO%: PRINT" V"ELSELOCATEXO%, YO%: PRINTSPC (1) 
XxC%=XC%+1: GOSUB2060: RETURN 
1IFCU%< >29THEN380 


"FAB; MRY=VAL (4%) 


106; MC%»=VAL (A5$) 
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FTO LOCATEXOR+9, YO: PRINTSF 
SO.) IFCUAS 31 THENAZO 
3PO0 1FYC%A=14ANDY ¿MRY- 
300 LOCATEXO%, YOY TH 
310 LOCATRO%+9, YO%: PRINTSP 
ARO-VC%A= YC A+ GOSUBL0S0+RETI 
930 IFYC%S1LANDYS%>LTHENYS%= 
440 LOCATEXO%, YO%: IFXC%=1THI 
4530 LOCATEXO%+9.,Y0%: PRINTSP 
460 YO%=YC%-1GOSIIR2060:RET 
470 LOCATE1,20:PRINT"Valore 
480 NKEY FAs=""THEN4B 
970 CUA=AS5C (A$) : IFCU%>P6THE 
500 TF CU%A<>Bó6 THEN 390 

510 LOCATE1,20:PRINT"valor 
520 L1%=LEN(AS): IFL1%>S8THEN! 
530 FORK%=1T0L1% 

590 CU%=ASC (MID$(A$,K%, 1)) 
550 IF (CU%N<4BORCUA)57) ANDCU' 
560 NEXTK% 

570 ARB(XD%, YD%)=A$ 

530 |GOSUB2S5S0: TP%(XD%. YD%)=1 
590 TIFCU%”>B9THEMAJ3O 

600 LOCATE1,20:PRINT"texto"” 
610 IFLEN(AS) >9THENARS (XD%. 
620 LOCATEXO%+ 1, YO%: PRINTAR 
230 TECLIMA >7OTHENTAO 

640 LOCATE1,20+PRINT"+ormul 
450 ENCAFS(XD%: Y1D%))5P, 
460 170. 1% 

470 IDS(AFS (ADA, YDW) KK 
480 TFCUM)PGANDOA<123THENC 
GOTHENPA%=PAY%+1ELSEIFCIU%=91 
490 NEXTK% 

PQ0 TRPAR%(>PO%THENLOCATE!, 2 
710 GOSUBZORO:A$=ARS (XD%, YD 
220 GOSUB260; TP%(XD%. YD%)=3 
730, TFCI%< >S65THENRETURN 

740 LOCATEXO%+1,YO%: PRINTSP: 
750 LOCATEXO%+1,YO RINTSP 
760 T1=VAL (AH); RE=A$: A$=5TR 
770 IFLEN(A%) >3THENERRORZ52 
780 LOCATEXON+1, YO%:PRINTSP 
790 LOCATE1,20:PRINT"Filas/ 
200 AS=INKEYS: IFA$=""THENSBO: 
810 CU%=ASC(A$) : TFCUM>PGTHE! 
820 TFCVU%=67THEMB3OELSEIFCU' 
330 CLS:FORK1%=1TO0MC% 

B90 FORJ1%=1TOMR% 
850 IFTP%(K1%,J1% 
860 IFTP%(K1%, J1% 
270 NEXTJ1%:NEXTK1% 
8230 ,60T09390 

290 CLS:FORJ1%=1TOMR% 


3THENXD' 
:4THENXD%: 
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1: GOSUB1890: RETURNELSEIFXC' 
=XC%- 1: GOSUBZO60: RETURN 


1THENRETURN 


cto: 


=Y3%+1:GOSUB1890: RETURNELSEIFYC%=14THENRETURN 
JENPRINT* V"ELSEPRINTSPC (1 

cri) 

URN 

YS%-1: GOSUB1890: RETURNELSEIFYC%=1THENRETURN 
EMPRINT" V"ELSEPRINTSPC (1) 

Ccr1) 

URM 

s/Texto/Formulas/Arnular" 

o 

NCU%=CU%-32 


"¡SPC(33):LOCATE1, 21:LINE INFUT As 
JERRORZ50 


MX >46THENRETURN 


FAFBS(XAD%: YD%)="VAL "RETURN 
1SPC(34):AF$(XD%, YD%)="":¡LOCATE1,21:LINEINPUTAS 
YD%) =LEFTS (AS, 9) ELSEARS (XD%., YD% 


5 


lo: DW) E TPRIXDA, DW) =2 5 AFB (XD%, 1D%)="TEXTO"” : RETURN 


= 
AV=: 


PC(32) :LOCATE1,21:LINE INPUTAFS(XD%, YD%) 
PC%=0 


+1): CUNA=ASC (As) 
LUN=CU%-32:MID$ (AF$(XD%, YD%) ¿K%, 1) =CHR$(CU%) ELSEIFCU%= 
THENPC%=PC%+1 


O3PRINT"formula eouivocada": RETURN 
1%) 
¿RETURN 


CP): TER (XD%, YD%) ARS (XD%, YD%)="": RETURN 
C(8-LEN (ARS (XD%, YD%)))5 ARS (XD%, YD%) :RETURN 
$ (INT(T1)):N%=LEN(AS) : GOSUBZ700:; A$=ARH(XD%. YD%) 


C(8-LEN(AS))5 A6: ARS(XD%, YD%)=B+$: RETURN 
Columnas" 

je] 

NCV%=CV%-32 

1=32THENS90ELSEGOTOSOO 


1%: GOSUBZ2080 
=K1%1YD%=J 1%: GOSUB1130 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1130 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
LMNA 
1390 
1400 
1410 
1420 
1430 


FORK1%=1TOMC% 
1FTPA(K1%, 31% 
TIFTPW(K1 
NEXTK1%: NEXTJ1% 
RETURN 
CLS:LOCATEO,8:PRI 
LOCATEO, 127PRINT" 
OPENASFOROUTPUTAS 
PRINTH1,MC%, MR% 
FORK%=1TOMC% 
FORJ%=1TOMR% 
PRINTH1,ARS(K%, J 
PRINTH1,TP%(K%, J 
NEXTJI%! NEXTK% 
CLOSEHI 

RETURN 


BT 
pa 


HENXD%=K 1% 
HENXD%=K 1% 


NT"prepara el cassette o el 


1%: GOSUBZ080 
1%: GOSUB1130 


disco 


rombre del fichero a salvar"¡LINEINPUTAS 


Bl 


4) 


%) 


"GAFRH(K%, 


J%) 


LOCATE1,18: PRINTAF$(XD%, YD%) : RETURN 


GOSUB1090: A$=AR$ 
GOSUB760: RETURN 


(XD%, YD%) 


LOCATE1,20:PRINT"Filas/Columnas” 


A$6=INKEYS: IFA$=" 


"THEN1100 


CUN=ASC (A) 3VL=0: IFCV%>96THENCU%=CV%-32 
TFCV%=67THEN1140ELSEIFCVU%=5S2THEN1220ELSEGOTO1L10O 


¡IFAFS(XD 
K%=TP%(XD%, YD: 
OM ERROR GOTO 30 
FORIJ%=YD%-2T01ST 
K%=TP%(XD%, J%) 

TFK%: 
NEXTI% 


¿DY 


O 
EP-1 


="TLC"THEN1140ELSE1220 
1): IFK%=10RK%=3THENVL=VL+VAL (AR$(XD%, YD%-1)) 


TPYW(XD%, 1D%)=4: AFS(XD%, YD%)="TLC": ASB=STRE(VL): 


GOSUB2700: RETURN 


ORK%=3THENVL=UL +VAL (AR$(XD%, 3%) ) ELSEGOTO1200 


NY=LEN (As) 


para salvar los datos" 


J%=TP% (XD%-1,1D%) : IFI%=10RJ%=3THENVL=VL+VAL (AR$(XD%-1,YD%)) 


OM ERROR GOTO307 
FORK%=XD%-2T01ST 
J%=TPY% (K%, YD%) 


o 
EpP=1 


TIFI%=10RIJ%=3THENVL=VL+VAL (AR$(K%. YD%) )ELSEGOTO1280 


MEXTK% 


TPR(XD%, 1D%)=9:AFS(XD%,1D%)="TLR"A6=STRE(VL)N%=LEN (AS) 


GOSLUB2700: RETURN 
LOCATE1,20:PRINT 
LOCATE1,21:LINEI 
GOSUB1730 
IFFL%=1THENI3O 
IFYS%>MR%-13THEN 
XS%=VAL (A2%) 
IFXS%>MC%-3THENX: 
XxC%=1:YC%=1: GOTO 


"posicion?" 
NPUTAS 
YS%=MRY%-13 


S%=MC%-3 
140 


CLS:LOCATEO,8:PRINT"1- IMPRESORA 80 COLUMNAS": PRINT:PRINT"2-IMPRESORA 40 COL 


Ss" 
As$=INKEYS: IFA$=" 


"THEN 1390 


IFAS="1"THENNS%=BELSEIFAS="2"THENNS%=4ELSEGOTO1390 
RINT"A IMPRIMIR TODO O UN SOLO SECTOR? € 


CLSILOCATEO, 1 
AS=INKEYS: IFA 
IFAS="T"ORA$= 


THEN1420 
THENNR%=MR%:; NCY 


CH: XS5%=1: Y5%= 


¿GOTO1S7O 


T/S+" 
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LSILOCATEO, 18: PRINT"MUMERO COLUNMNAs":PRINT 

INPUTNCA 

TFNC%>)MOATHENNCA=MC% 

CLS:LOCATED, PRINT"NUMERO FILAs” 

INPLUTNR% 

TFNRA A MRATHENNRL=MR% 

ELSILOCATEO, 18:PRINT"POSICION DE LA la CASILLA ARRIBA A LA IZQUIERDA": PRI 


INPUTAS 
GOSUB1730 

O, TFFL%=1THEN150O 
IFYS%>MRYTHENLOCATEO, 18: PRINT"FILA EGUIVOCADA":GOTO 1500 
XSN=VAL (A2$) 

TFXS% MC THENLOCATEO, 18: PRINT"COLUMMA EQUIVOCADA": GOTOLSOO 
NG%=NC%:N1%=X5% 
IFNG%<=N5%THENNS' 
(S%ATOVS%+NI 


6%: NG%=0ELSENS%=N5%: NG%=NG%-N5% 


$4 PR%(K%, 3%) 
TIFKZ%=1THENLPRINTTAB(T1%)+SPC(S-LEN(AS$)) 
L(A35)):LPRINTTAB(T1%)5 :LPRINTUSING"HAHHRHHH 
1670 NEXTK% 

1480 LPRINT 

1890 NEXTI% 

1700 LPRINT 

1710 TFNG%<>OTHENN1%=N1%+N5%: GOTO1 580 

1720 RETURN 

1730 Al$="":42%$="":FL%=0 

1740 FORK%=1TOLEN(A$) 
1750 CU%=ASC(MIDE(A$,K% 
1750 IFOLUMI)PAANDCUAC 123 
1770 MEXT 

17280 FORK%=1TOLEN(A$) 
1790 BS=MIDS(AB,K%. 1): CU=ASC (BG) 

1800 IFCU%>S59ANDCU%< 9 1ORCUA>)76ANDCUX<S 123THENA1$=A 1$+BSELSEIFCUN>47ANDCU%<SSTHENA 
2$=A28+BSELSELOCATE1, 21:PRINT"CASILLA EQUIVOCADA" :FORJ%=1T010000:NEXT:FL%=1:RETU 
PN 

1810 NEXTK% 

1820 FORK%=1TOMR% 

1830 TFALS=LEFTS(YA$(K%),LEN(A1S)) THENYS%=K%: GOTOLSSO 

1840 NEXTK% 

1850 RETURN 

1860 LOCATE1,20:PRINT"segquro de querer terminar? s/n” 

1870 AS=TNKEYS: TFAS=""THENJS70 

1880 IFA$="S"ORAS$="s"THENENDELSEIFAS="N"ORA$="n"THEN1SOELSEGOTO1870 

1890 CLS:LOCATE1,2:PRINTTAB(6)1XS5%iTAB(15)XS%+11TAB(29)3X5%+2:TAB(33)X5%+3 

1900 LOCATE1,3:PRINT" W WR GYWwW4uwwwWwwWRwvWwwwwwwwRwwwwwwww 
PuUyuYyYy "uy 


AS¡ELSEIFKZ%=30RKZ 
1¡ELSELPRINTTAB(T1% 


4THENT¿=1NT (VA 


1)) 
HENC!U%=CU%-32:MIDS(A$,K%., 1) =CHR$(CU%) 


1910 FORK: TO13:PRINTTAB(1)1YA$(1S%+K%) :TAB(3)4" V"¿NEXT 
1920 FORI%4=0TOS3 
1930 FORI4=0T013 
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1940 XD%=X3%+ 1%: YDW=YS%+ 3%: KZ%=TP% (XD%, YD%) 

1950 IFKZ%=OTHEN2010 

1960 LOCATE4+1%X9,J%+49 

1970 AS$=ARS(XD%, YD%) 

1980 THENPRINTSPC (8-LEN(A$)) :A$: GOTOZ2010 

1990 THENPRINTAS: GOTOZ010 

2000 Ti=VAL (AS '$=STR$(INT(T1)):BS6=A$: NA4=LEN(A$S) : GUSUB2700: PRINTSPC (8-LEN(ARS (X 
D%. YD%))) + ARS(XD%, YD%) : AR$(XD%, YD%)=BS 

2010 NEXTI% 

2020 NMEXTI%» 

2030 GOSUB 2060 

2040 RETURN 

2050 REM CURSOR 

2060 X0%=3+ (XC%-1)X9: YO%=YC%+3: LOCATEXO%, YO%: PRINT">"¿LOCATEXO%+9,Y0%: PRINT"<" 
2070 RETURN 

2080 ML%=0:DV%=0:EX%=0;PP%=0 

2090 Fi$=AFS(XD%, YD%) 

2100 L1%=LEN(F1$) 

2110 FORK%=1TOL1% 
¿2120 AS=MIDS(F1%.K%, 1): CUA=ASC (AG) 

2130 IFCU%=940THENPP%=PP%+1ELSEIFCU%=92THENML%=ML%+1ELSEIFCU%=47THENDV%=DV%+1ELSE 
TFCU%=94THENEX%=EX%+1 

2140 NEXTK% 

2150 IN%=INSTR(F1$, " INT"): IFIN%=OTHEN2210ELSEGOSUB2750 

2160 IFFL%=0THENZ2180 

2170 B$=LEFTS(F1$, IN%-1)+A$+RIGHTS(F1$,LA%-P2%) :Fi$=B$; GOTOZ150 

2180 F3%=P1%:P1%=INSTR(F3%+1,F1$,"("):P2%=INSTR(F3%+1,F1$,")") 

2190 IFP1% ORP2%<P1%THENF2$=MIDS(F1$,F3%+1.P2%-F3%-1); G0SUB2440ELSEGOUTOZ2180 

= 2200 F1$=A$: RETURN 

2210 IFPP%>OTHEN2240 

2220 F2$=F1%: G60SUB24940 

2230 RETURN 

2240 L1%=LEN(F1$) 

2250 FORK%=1TOL1% 

2260 AR=MID$(F1%,K%, 1): CUA=ASC (AB) 

220 IFCUA=4O0THENF3%=K%ELSEIFCU%=41THENF4%=K%: PP%=PP%-1:G60T02290 

2280 NEXTK% 

2290 L2%=F9%-F3%-1:F2$=MID$(F1$,F3%+1,L.2%) 

2300 Mi%=ML%:D1%=DV%:E1%=EX%: ML%=0: DV%=0:EX%=0 

2310 FORK%=1T0L2% 

2320 A$=MID$(F2%,K%, 1) 

2330 CUY=ASC (A) 

2390 IFCU%=92THENML%=ML%+1ELSEIFCU%=47THENDV%=DV%+1ELSEIFCU%=94THENEX%=EX%+ 1 
2350 NEXTK% 

2360 Mi%=M1%-ML%: DI%*=D1%-DV%:El%=E1%-EX% 

2370 GOSUB2440 

2380 ML%=ML%+M1%: DVU%=DV%+D1%: EX%=EX%+E1% 

2390 F2%$="":F2%=F2$+LEFTS(F1$,F3%-1) 

2400 F2$=F2$+STR$(T1) 

2410 L3%=L1%-F4% 

2420 IFL3%< >OTHENF2$=F2$+RIGHTS(F1$,L3%) 

2430 F1$=F2%$:G0TO2210 

2490 L2%=LEN(F2$):T1=0:F1%=0;A1$="":F2%=0:A2%$="":05%=0:FG6%=0:C0Z2%=0:KX%=1 
2450 FORK%=KX%TOL2% 
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2460 AS=MID$(F2%.K%, 1): CUAFASC (A) 

2470. IFCU%>69ANDCUR<71THENF1N=F 1%+13A1$=A1$+A5: KW%=K%+ 1: GOTOZ5S0ELSEIFCU%>47ANDC 
U%<5S20RCUA 12540: KWW=K%+ 1: GO0TOZ550 

2480 IFCUA: EX%-1: 607102540 

2990 % MLAW=MLA= 1: GOTOZS60ELSEGOTOZ54O 


2500 O THENTFEXA=OTHENKW%=K%: DV%=DV%-1: GOTOZ5S60ELSEGOTO2540 

2310 STHENIFEXA=CAMDMLA=0ANDDV%=0THENKW%=K%:! GOTOZ5S60ELSEZ2590 
23920 2% +1 

2330 50. 

2540 1%=0:F2%=0; ¡KWW=K%+1 

25590 NEXTK 

25950 TFE1%=OTHENT2=VAL (42%) :CZ2%=CZ%++tLEN(A2%):A285="":F2%=0:GUTOZ610 


2570 FORI%=1TOMR% 

2580 TFAIS=LEFTS(YA$(1%) ¿LEN(A1B)) THENY1%=1%:C0Z2%=C0Z%4+LEN(A1$):A1$=" 
2590 NEXT 

2600 -X1%=VAL.(A2%):C7%=C0Z%+LEN(A2%).:T2=VAL(ARB(X1%,11%)):A28="":F1%=0:F2%=0 

2510 IFOSA=0THENT1=T2;05%=CU%: IFKWA%<L2%+1THENKX%=K%+1:G0TO2450 

2620 CZ%=CZ%4+1 

2630 1F0OS%=93THENT1=T1+T2ELSEIFOS%+>45THENT1=T1-T2ELSEIFOS%=42THENT1=T1XT2ZELSEIFO 
5%=47THENT1=T1/TZELSEIFOS%=94THENT1=T1*T2 

2640 0S%=CU% 

2650 TIFKW% 2%+ 1ANDFG%=OTHENZ630 

2660 L.9%=KW%-CZ%-1:L8%=L2%"KW%+1iA3S=LEFTS(F2$,L9%)+STR$S(T1)+RIGHTS(F2$,L8%):F2% 
=43$ 

2670 GOTO2440 

2680 T2=INT(T1*100)/100:AS$=STR$(T2):N%=LEN (As) 

2690 GO0s 2700: RETURN 

2700 FORK%=1T0! 
2710 IFMIDS(AS 
2720 NEXTK% 
2730 ARB(XD%, YD%) =RIGHTS (AS, N%-K%) 

2740 RETURN 

2750 1%:P1%=INSTR(IN%+1,F1$,"("):F3%=P1%: FL%=0 

2760 NSTR(F3%+1,F18,"("):P2%=INSTR(F3%+1,F1%,")") 

2770 IFPLN=00RP2%<PIATHENPPR=PPR-1:F4%=P2%:FL%=1:F28=MIDS(F1S,F3%+1,P2%-F3%-1):6 
OSU/P29440ELSERETURM 

2780 T3=INT(T1):A$=STRE(T3):RETURN 

2790 IFERR=14THENCLS:PRINT"Fin. espacio reservado para variables": FURK=1T010000: 
MEXT:RESUME130 

2800 IFERR=2SOTHENLOCATE1,18:PRINT"El numero tíene mas de 8 citras":FORK%=1TO1OO: 
OO: NEXT: RESUME130 

2810 IFERR=2S2THENLOCATE1.18:PRINT"El resultado tiene mas de 3 cifras":FORK%=1T0 
10000: MEXT: ARS (XD%, YD%) TP% (XD%, YD%)=0: RESUME 130 

2820 IFERR=530RERR=?OTHENLOCATEO,18:PRINT"El disco no esta preparado ":FORK%=1T0O 
10000: NEXT: PRESUMEZ950 

2830 IFERR=2THENCLS:LOCATEO.10:PRINT"Demasiadas filas o columnas”: FORK%=1T010000 
¿NEXT : RESUME?O 

2840 ONERRORGOTOO 

2850 EMD 

2850 CLS:0T%=0 

2970 LOCATEO. 
2880-PRINT"-W-W-W-W-W-W-W-W-W-W-W-WN-W-W-W-W-W-W-W-W-W-W- Www wow ww ww 
YoUyyyy" 


:GOTOZ600 


%, 1)" "THENZ2730 


¿PRINTTAB(10):"Hoia electronica" :PRINTTAB(16)4" 
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LOCATEO.18;PRINT"Leer/Crear tablero" 


AS=INKEYS: IFA$=""THEN2900 
IFAS$="L"ORAS: THENZ950 
1IFA$="C"DRA$="c"THENSO 


GOTOZ900 

ERASEARS, AF $, TP% 

CLSILOCATEO,S:PRINT"Prepara el cassette o el disco para los datos” 
LOCATEO, 12:PRINT"nombre del fichero a cargar"¡LINEINPUTAS 
OPENASFORINPUTASH1 

INPUTH 1, MC%, MARA 

MC%=6: MRY%=60: DIMAR$ (MC%, MR%) ¿ AFS(MC%. MR%) , TP (MC%, MR%) 
FORK%=1TOMC% 

FORI%=1TOMR% 

INPUTH 1, ARS(K%, 3%) ¿AFS(K%, 3%) 

INPUTH1,TP%(K%, 3%) 

NEXTJ%: NEXTK% 

CLOSER) 

GOTO1ZO 

PREM RUTINA DE ERRORES 

RESUME 3090 

RETURN 

SOUND 0, 100:SOUND 1,15 

SOUND 2,255: SOUND 3.15 

SOUND 7, 1:SOUND 8,15 

SOUND 7,B11110100:SOUND 8,15 

SOUND 8,16 

SOUND 9,0 

SOUND 12,1 

SOUND 13,0 

GOTO 3100 
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40 
50 
50 
70 
30 
xj= 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
(1 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
30 
3460 
370 
380 
390 
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COLOR 1,15,6:5%=0 
KEY OFF:xX=100:Y=170:Z=4:P=240:0=10:R=0:N=6:T%=0 
SCREEN 2:COLOR1, 15,6 
LINE(0,191)-(255,181) 
RESTORE ¿FOR X=1 TO 7 
S$: NEXT X 
DATA 32,32,32,252,32,32,32,0 

OPEN "aro:” FOR OUTPUT ASH1 

DATA 0,0,0,1,1,3,1,7 

DATA 49,224,224,240,240,248,112,240 

DATA 4,1,0,1,3,7,12,24 

DATA 240,224,192,192,224,224,224,243 

DATA 255,3,7,7,15,3,0,0 

DATA 252,243,248,248,252,240,48,16 

CIRCLE (25,25),25,S:PAINT (25,25),5 

LINE (0,171)-(255,171),2 

LINE (0, 171)-=(50,43)+2;LINE(50,43)-(123,56),2:LINE (123,/56)-(169,169),21LINE 
$9,169)-(184,101),2:LINE (184, 101)-(207,23),2:LINE(207,23)-(255,156),2 

PAINT (100,100).2 

STRIG(0) ON 

ON STRIG GOSUB 480 

PSET (92,174) :PRINTH1, "GASOLIMA" 

S=STICK(0) 

PSP-Z3IFP<O THEN P=255:; 
IF Q>150 THEN X$="LA BRUJA HA ATERRIZADO! ":GOSUB 530 


FOR Y=1 TO 3:READ D: S5$=S$+CHR$(D): NEXT Y: SPRITES( 


IF T%O_ THEM 0: P=240:R=0:N=N+9;Z=Z+1:T1%=0:PLAY"cdc”:GOTO 230 
THEN Y-% 
THEN Y=Y-Z:X=X+Z 
THEM X=X+Z 
THEN X=X+Z1 Y+Z 
THEN “Y=Y+Z 
THEN ZiX=X-Z 


THEN 
THEN 


eS Z 
Ss Xx 
IF X<1 THEM Xx: 
y 
MN 


IF Y<1 THEN 
1F X>238 THEM X=238 
IF Y>180 THEN Y=180 


400 
2410 
420 
430 
440 
450 
450 
470 
480 
490 
500 
si0 
520 
530 
540 
550 
560 
570 


PUT SPRITE 2,(P,0),7,2 

PUT OSPRITE 3, (P+8,0).7,3 

PUT SPRITE 4, (P,0+8),7,9 

PUT SPRITE 5, (P+8,0+8).,7.5 

PUT SPRITE 6, (P.Q+16),7,6 

PUT SPRITE 7, (P+8,0+16),7.7 

PUT-SPRITE-4+ (XV) 151 

SOTO 2940 

R=R+L1O:LINE (255-R,191)-(255,181),15,BF 

PLAY "4-" 

IF X>P AND Xx<P+10 AND Y>Q AND Y<G+16 THEN S5%=3%+1: 
IF R>250 THEN X$="LA GASOLINA SE HA AGOTADO”: GOSUB 
RETURN 

SCREEN O:LOCATE 5, 5:PRINTXS 

LOCATE 5, 10:PRINT "TU PUNTUACION HA SIDO=":5% 
PRINT:PRINT:PRINT " OTRA PARTIDA SI 0 NO [S/N3" 
FS=INKEYS: IF F$="5" OR F$="s"THEN RUN 

IF Fs="»" OR FS="N" THEN PRINT ¿PRINT:PRINT"ADIOS. 


"END 


580 


GOTOS60O 


T%=1: RETURN 
530 


GRACIAS POR HABER JUGADO! 
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10 

20 

30 

40 

so 

60 

70 

30 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
r1o 
220 
230 
240 
250 
260 
270 
280 
290 
300 
F10 
320 
330 
340 
350 


360 


DARDOS 


A 


REM * GTS - MSX * 
REM IRC 
REM 


PART=1:G60=2 


DIM PO(10),TT1(40) 
REM 
REM INICIALIZACION 

REM 

KEYOFF 

SCREEN 3,,255 

GOSUB 3500 

FOR N=1 TO SO: A$=INKEYS: NEXT N 

COLOR 3,1,1:CLS 

INPUT"VALOR INICIAL (101/801)"4VINZ 
IF VINZ>801 OR VINZ<101 THEN 150 

CLS: INPUT"CUANTAS MANGAS (1/15) "+ TIRI 
IF TIRI>1S OR TIRI<1 THEN 180 
CLS+INPUT"NIVEL DE DIFICULTAD CPI)" ILTU 
TF:LIV>? OR LIV<1 THEN 200 

LIV=LIV+1 

€L37 INPUT"TECLADO.O JOYSTICK (T/J)"i INS 
KEE=0 

LET KEESKEE-(IN$="J") 

TF INS<>"T" AND IN$<>"J" THEN 230 
WES=YINZTTFS=VINZ 

REM 

REM 

REM 

GOSUB 3740 

GOSUB 2300 

GOGUB 720 

HH=(LIVXZ)+1 

LAA=0:LBB=0 

REM 
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REM LECTURA TECLADO 
REM 

FOR N=1 TO SOO:NEXTN 
PLAY"D4T99V9C8DS", "OSTIPVICSDE" 
A=30: B=30 

LINE (168,11)-(247,21).8.BF 
PRESET (177,13) 


IF -G0/2=INT(G0/2)THEN PRINTH1,"  No.1 "ELSE PRINTH1,"” 


X=STICK(KEE) 
LIV+(INT(RND(1)XHH)) 
XX+((X=1ANDB>19)XLIVXZ) 
UTISUTI-((X=3ANDA<15O)XLIVAZ) 
UXX=LIXX- CO=SANDE< 160) ALIVKZ) 
UTTSUTTI+((X=7PANDAFLO)XLIVKZ) 
REM 

REM 

PEM 

TF _STRIG'KFE)=-1THEN GOTO 620 
REM 

REM 

REM 

GOTO 1480 

REM 

PEM 

DEM 

eneue 3930 

PLAYYniTa £3E" 
PO(IDARTIZ)-1)=4 
POUIDARTRD))=E-2 

FOR Net TO 2001NEYTON 

GOTO 1770 


DAPT=DART+1 


TF ODAPT>3_THEM DART=1:GOSUB 257?0:FOR M=1 TO 10:PO(N)=0:NEXT NiGOTO 3%0 


A=30:B= 


ROTA 450 


CLS+COLOR 15, 1,1 


PUTSPRITE 5, (4,B),15,0 
CIRCLE (31,96),73,10 

PATNT (81,96),10 

LINE (168,10)-=1248,180),1,BF 
LINE (169,133)-(247,133).115 
L-TNE.-(207, 20)-(207, 133), 15 
LINE (168,11)-(247,21),2,BF 
PRESET| (9,2) 

COLOR 15 

PRINTR1, "PLAYER 1" 

LINE (0,0)-(255,10),11,BF 
PRESET? (0,2) 

COLOR 4 

POINTH1," DARDOS MSX 
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LINE (0,181)-(255,191),11,BF 
PRESET (4,183) 

PRINTHR1," AL MEJOR DE"¡TIR 
PESTORE 2990 

FOR N=1 TO 8 

READ R 

CIRCLE (81,96),R,1 

NEXT ON 

DATA 83,65,63,57,40,33,8,3 
PAINT (81,20),1 

PAINT (81,96).1 

FOR N=P/20 TO PX2 STEP P/10 
CC=COS (N) 

S5=SIN(M) 

LINE (81+73%CC,96+73%55)- (81+8%XCC,96+8%X55) 
NEXT ON 

FOR N=P/S TO PX2 STEP P/S 
OS (mM) 

S=SIN(N) 

PAINT (B1+48%CC,P6+48%55), 
PAINT (B1+20%CC,P6+20%53) , 
CO=COS(N-(P/10)) 
IN(M-(P/10)) 

PAINT (B1+61KCC,PÓ+61%SS) +1 
PAINT (B14+35%CC,96+35%55),1 


"MANGAS. 


ee 


NEXT =N 

COLOR 15 

PRESET (179,29) 
PRINTH1, p= "¡LAA 
PRESET_ (214,234) 
PRINTH mM: BB 


PRESET (170,32) 
PRINTH1.WEFS 
PRESET (210,32) 
PRINTHL,TFS 
REM 


REM 
REM 


RESTORE 1350 
FOR N=1 TO 31 
READ X,Y,A$ 
PRESET (X.Y) 
PRINTR1,AS 
NEXT ON 

DATA 75,20 
DATA "1”,12 
DATA 139.53 
DATA 73,"3", 
DATA 
DATA 
DATA 
DATA 108,161 
DATA 161, "1 
DATA ">?",17 
DATA "6".8,114,"8",4,93,"1",9 


IS3 TT "0" 
195,130 $" 
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DATA 23) "1,7125, 1", ,11475,.%9" 
DATA 18.51,”9",32,33 

DATA "1",38,33,12 
RETURN 

REM 

REM 

| REM 

GOSUB 3800 

E 
RESTORE 1620 

FOR N=1| TO 32 

TFN<9 THEN READ A ELSE A=0 

BS=ES+CHRS (A) 

NEXT ON 

SPRITES(0)=B$ 

RETURN + 

DATA 0,130,68,40,16.40.68.130 | 

REM | 

REM 

REM 

IF -AC1O OR A+ISO OR B(14 OR BY160 THEN RN=O 

TF-RND(1))>.5 THEN-1680- ELSE ¡1700 

IF RND(1)>.5 THEN ASASUII=RN:E=B+UXX+RN- ELSE: ASA+ULI-RN:B=B+UXX-=RN 
GOTO 1710 

IF PND(1)>.5 THEN A=A+UIT+RN:B=B+UXX+RN ELSE: A=A+UII=RN:B=B+UXX-RN 
UXX=0; UT I=0 

PUTSPRITE 5, (A,B),15,0 


9.23,5" 


GOTO 450 

REM 

REM + 
REM 

NUM=0:X=A+3,1:Y=B+5.1 

MES$="Simble" 


TF X>=81 AND Y>=956 THEN PO=2:X1=X-81:Y1=Y-96 
TFX<81 AND Y>=96 THEN PO=3: 
TFXC81 AND "Y<P9STHENPO=9 1 X1 
IFX>=81| AND Y<96THENPO 
REM. 

FEM. CALCULA! ANGUILLA Y DISTANCIA 
REM 


NT(X1S2+Y192)4.5) 
AMG=(ATN(Y1/X1)) 

DEGS (6NG/(2P))F3560 
REM T 

REM PEGULA- ANGULO 
REM 

IF PO=1| OR PO=3 ¡THEN DEG=?0-DEG 
ANG= ((POXPO)-P0)+DEG 
REM 

REM 

1960 "REM 
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1970 1F PG THEN TM=TM+=0 


THEN MES$="Fue 


NTAGO/ ZA 


2040. TR-AOIRICINTIGO/ 2) AND 


2080 15 TM=i20 7 


"OSTISOL 


CDE 


DEFGFEZ” 
2090 GnTA 2400 

2100 mem 

2110 REM EIN TUIGADOR 1 
2120..REM 

2120 GNSUR 22S0 

2140 1O0A=1,0n:1 

2150 607 2000 

2140 Pen 

PU7O PEMOTTN TUGADOR 2 
2120 Pen 

2190 CNSUR 2750 

2700 ..LPR=IUPR+A 

2P10 GOTTA 2000 


MUSICA 


2250 PLAY"Y13DITISOLACDCDEDE 
2260 RETURN 

REN 

REM 

PEM 
RESTORE 23 
FONPN=1T090 

READ A 

TT(N)=A 

NEYTN 

NATA |20,1,1,13,18,4,4,13,13,6/6,10,10,15,15,2.2,17,17.3.3,19,19.7,7+16p16,8 
¿11,19,19,9,7,12,12,5,.5,20 

RETURN 

PEM 

PEM 

REM 

PRESET-(172, 135+DARTXD) 

COLOR-15 

IS ONUM=O THEN PRINTH1.MES$ 

TF NUMC>O THEN PRINTH1,MES$5 TT (NUM) 

LINE | (168, 135)- (245,143) .1,BF 

PRESET (172,134) 

TF(GO/2I=INTIGO/2) AND WES-TM<2 THEN PRINTHI 
TF(G60/2)<>INT(G0/2) AND TFS-TM<2 THEM PRINTH!, 
1E(GO/7 NT(GO/2)THEN-PRINTHL, “Resto 
TF (60/2 INT (GO/2) THEN PRINTHi,"Resto! 
VIME (210,171) +1,¿BF 

PRESAT 1172, 171) 


+ "V1ISOSTIGOLGCDCDEDEFGFFEDZ" 
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2520 PRINTR1 "Tota t"tTM 
2530) C07N 420 
7540 PEM 
2550) DEM MOUTMTENTO MANO 
PSe0 PEmM 
2570) HXA=255; HYB= 1980: FOR 
2580! LET,X=PO((N*2)-3) 
2590/LET VIPO((MAZ)-2) 
2£00| HXA=HMAd (IA CHXA SN) ) 
2410 HXA=SHXA= (F(UXA Gx) 
2620] HYBSHVB- (3R(HYB<W)) 
PERO HYREMYB+ TIRA B>Y)) 
PEGO |PEUTSPRITE 1, (HXA;HYB),6,2 
2450. TF-N92.-THEN. PUTSPRITE 
2650 1F ABS (HXA-%X) (SAMD ABS UHN 
2670|GATO_2590 
2480 | IFN=3TRHENPUTSPRITES, (0,0),0,8 
Pepo N=4THEMPUTSPRITE9,/(0,0),0,8 
2200) RETURN 
PO PUTEPRITE NN (0,01,0,4 

123200 N=1TO2-RUTSPRITE Mrt255+ 192) +04 104NEXT--N 
PIROJLINE (149/134)-(248,(180)),1,BF 
2740 1F PET=Í THEN RETURN 
2750) 1F GO/2=INT(G0/2) AND INT ((LAA+LBB)/2)=(LAA+LBB)/2 THEN GOSUB 2870 
2760 TF G0/2=INT(GO0/2) AND INT((LAA+LBE)/2)<>(LAA+LBB)/2 THEN GOSUB 2820 
2770| TF G60/2(>INT(C0/2) THEN GOSUB 2920 
2780 GO=GO+1 
2790) 1F (6023 THEN GOSUB 3140 
2800 A=30+ FOFTM=0 
28L0,RETLERN 
2820 /1F WES-TM>1 THEN WFS=WFS-TM 
2830 LINE (1677, 23+INT (60/2)%8) - (199,16+INT(G0/2)48), 15 
2940 |PRESET (170,249+INT(G0/2)%6) 
?950 PRINTHI WES 
22860 RETHAN 
2R70 TF WES-TM>1 THEN WFS=WFS-TM 
2880 LINE (177,31+1NT(G60/2)*8)-(199,24+1NT(G0/2)£8),15 
R8RP0 PRESET, (170.32+INT(G0/2)*8) 
2900) PRINTR1,WFS 
2910/ RETURN 
2920 1F TFS-TM>1 (THEN TFS=TFS-TM 
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2930 LINE (7 
2740. PRESAT 12 
7950 PRINTA?, Ti 


1AHIMTAGOL2)XAB) 4 
x2) 


2:38, 294 1NT.(60/2%8) 1,15 
0-32 INT (60 


2950 RETIAN 
2990 


20m 


LAAMINT 
LEPYTMTITIRIAO 


=01 


=UTNZ" 
SUR 7190 

Br (173.387 
34 
Pr ES 
DOTNTAA, 1 BR 


PR 
ERIMTHT, 


Torta] a: 


DARTS1:P5 
TRTSLAA LEE 

TF TRT/2=INTITRT/R)THEN| G0=2 
TF TRT/2 25 INTIUTRT/2) THEN G0=3 
GOTO IIRO 
LINE (168,2 
LINE | (159, 
1, TNE.| (207, 20 
PRESET (174 
PPINTH1, "M="rLAA 
PRESAT 1219,24) 
DOTNTRI "M="1LBP 
PPESET- (170,32) 
PRINTHL, WES 
PRESET (210,32) 
PRTNTHA, 7 


11 GOSUR 2EPOTRET=O 


> me rua 
nen 

REO RIN DE PART 
SEM 

GOSMB- 3370 
PRINTH1," VENCE EL NMo..1” 
GOTO 13410 

GOSUP 232370 


PRINTHL," VENCE EL Nol 2" 
Goto [3310 
PET=1I?GOSUB 25701 RET=Q 


GOSUB-3740 
LTNE-|(40,50)- (199.145), 13,BF 
LINE |(45,55)-((195,,140),15, BF 
PRESET (60/95): COLOR 12 
RETURN 

PRESET (65,150) 

LTNE (0,182)-(255,191),10,BF 
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3740 
MEFZGFE4GFEDE2” 


3750 


COLOR 10:PSET (62,183) 
IF KEE=0 THEN COLOR 1:PRINTH1, "PREMI SPAZIO” 
IF KEE=1 THEN COLOR 1:PRINTH1, "PREMI FIRE" 
IF STRIG(KEE)=-1 THEM RUN ELSE GOTO 3460 
REM 

REM TITULO 

REM 

GOSUE 3740 

COLOR 4¿1,1:0L5 

OPEN "GRP: "FOR OUTPUT AS H1 

COLOR 4,1,1:CLS 

GOSUB 3690 

FOR B=1703 

FOR N=1T013 

PRESET (30,79),15 

COLOR NiPRINTH1, "DARDOS!" 

FORT=1T0490:NEXT T.N.B 

RETURN 

REM 

REM 

REM 

RESTORE3690 

FORN=1T06:READ A.C 

LINE(0,A)-(255,4),C 

NEXTN 

LINE (0,72) - (255,104), 15, BF 

DATA 60,12,64,9,68,4,109,4,113,9,117,12 
RETURN 

REM 

REM MUSICA PRINCIPAL 

REM 

PLAY"V1304T120L8D4EF2GFE4GFEDE2", "V1I3OSTIZOLEDIEFZGFEAGFEDE2".,"V1306T120L8D 


PLAY"V1304T120L8G4FEDACDEDC2DE4", "V13OSTIZ0LBG4FEDACDEDC2DE4", "V1IJOG6TLZOLEG 


AFEDACDEDCZDE4” 


3760 
3770 
3780 
790 
Fa00o 


0,0,0 


3810 


2,252 


RETURN 

REM 

REM 

REM 

DATA 0,0,13,250,13,0,0,0;0,0,0;0,0,0;0/0/0/31,126:/252,126,31,0:.0,0,0,0,0,0; 


DATA 0,5,6,6,3,35,99,99,119,63,63,31,15,15,7:7.0,149,216,216, 108, 109,108,25 


¿252,252, 252,292, 292, 2592, 248, 248 


38s820 
3830 
3840 
seso 
2350 


RESTORE (3770 

FOR|  M=1T032:READ A 
BS=R$+CHR$(A) ¿NEXTN 
SPRITES(1)=BS 
Bó=""¡FOR N=1 TO 32 


1987 - AMIGOS DEL.MSX- 31 


PETLUAMN 
3900 REM 
2910 REM 
2000 pEm 


PUTSPPITE 5, (0,0 
3950 PUTSPRITE DART+1, (MN 


3940 MEXT OM 
3970 RETURN 
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SISTEMAS 


1 REM Coovriaht 1985 by J.L.T. XV, 

5 ¡SCREENZ 

10 OPEN"GRP! "ASH1 

11D)" BM OUIPRINTRA, "SISTEMAS" ¿DRAW"BMS, 50" ¿PRINTH1, “LINEALES”: DRAW"BM107, 10 
O"+PRINTHL, "BY" DRAW"BM3,150"+PRINTH1, "ILT. XV," 

20 FOQRI=0TO3000:NEXTJ:COLOR1S, 4,4: SCREEN O: WIDTH39:LOCATEO+ O: PRINT"SISTEMAS DE E 
CIUJACIONES LINEALES POR El METODO DE SUSTITUCION.” 

21. LOCATEO:,4:PRINT"..E £ programa resuelve, paso a paso 
nes linesles, de dosecuaciones con dos inc"onitas por el 
272 LOCATEO, ?+PRINT"motodo de sustituci"n.".+.'." Introduce los valores, y pulsa 
tecla"i"cuando te lo pida." ' 

50 GOSLIB19000:CL5 

100 LOCATEO,O:PRINT"AX+BY=C", 
RES." 

102 INPLUIT'A="3X17 INPLIT"B="3x 
' Ss 

110 GOSUB1O000;CLS 

120 Z=Xx2: GOSUB20007 AS=STRH(X1)+"X"+3B+" 
TFLEN(AS) LEN CRB) THENM=LEN (AS) ELSEM=LEN (B$) 
122 LOCATEM-LEM(A%) O: PRINTAS; "="5X31LOCATEM-LEN(B%) ,1:PRINTBS;"=":Xó 

124 IFLEN(STRE(X3))>LEN(STRS(Xó) ) THENN=LEN(STRS (XE) )ELSEN=SLEN(STR$(X6)) 

126 FOPRI=OTOM+N:LOCATEI, PRINT" W"¿NEXTI 

200 LOCATEO, 18: PRINT"DESPEJAMOS. LA X DE. LA PRIMERA. ECUACION": GOSUB1OOO:LUCATEO, 4 
¿PRINT" (%) $: GASUBLOOOO 

210 LOCATEO, 12:PRINT" SUSTITUIMOS LA X EN LA 2k ECUACION": GOSUB1O1O:LUCATEO, 5S:PR 
INTES* GOSUJR10000 


sistemas de ecuacio 


"DXFEYSF".." WWWWwwow 


+ "INTRODUCE LOS VALO 


INPUT"C="4X3; INPUT"D= 


1x9; INPUT"E="4X5: INPUT"F="4x 


=X51 GOSUBZOO0 1 BE=SSTRH(X9)+"X"4SB4 "Y 


220 LOCATEO, 18: PRINT" QUITAMOS EL PARENTESIS”: GOSUB1O20:LOCATEO. 6: PRINTES: 
GASUB1O0000 

230 LOCATEO, 12:PRINT" QUITAMOS EL COCIENTE": GOSUBL1OJO:LOCATEO, 7:PRINTES;G 
aASUB1OONO 

240 LOCATEO.18:PRINT" REAGRUPAMOS LOS TERMINOS”: GOSUB1O40: LOCATEO.S:¡ PRINTES 
:GOSIJB1OO0O 

250 LOCATEO, 18:PRINT" SACAMOS FACTOR COMUN”; GOSUB1OSO:LOCATEO. 9:FRINTES;G 
NsuB10000 

260 LOCATEO, 18:PRINT" DESPEJAMOS LA Y"; GOSUBLOSO+LOCATEO., 10: PRINTES: GO 
SsuUR10000 
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RIOT PANA DIVIDIMOS":LOCA 
FEO 4111 PRINP"Y=" 5 Y GOSUB1O0000 


220 PRSNRPCOSUB2OO01 ESSE MESTRE (II ASEE"OUESTRE (VI +") 1/"+STRB(X1) ¡LOCATEO, 18:P 
PRINT" SUSTITUIMOS LA Y EN (*%)" LOCATEO, 12:PRINTES: GOSUB1OOOO 
290 XFX MEN) /MLELOCATEO, 184PRINT" OPERAMOS":LOCATEO. 13: PRINT"x= 


SUB20001Es= "X=? 4STRE(ADI)ADBA MAIS TRE CAL) RETURN m 
5: 605UB2000:E ESTR$(X9)+MIDS (AS, 3)+3%+"Y="+STRE(X6) RETURN 
APA? GOSU 5%: 2=X51 GOSUBZ000:E$=".L"+STRE(XIKX4)+RE+"Y1/"ESTRECKL 


1010 AS=ES$IZ 


GOSUBZ0001ES=STRS (XGRAD) ARG UV MESBA"Y="+STRÍÍXIAXO) RETURN 
ARNO: GOSUBZOOO 1 ESSRGA Y M+PR"Y="+STRE(X1AX6) +S$: RETURN 
EUERBIPBI MI" STRE(XLAXO) +86: RETURN 

SP ESTRB(XLANG-XARMFI4"/"ESTRE(-XIRAZEX1RAXS) ¿RETURN 

2000 TFZ<OTHENSE=STR$(Z)ELSESS="+"+MIDS(STRE(Z) 2) 

2010 RETURN 

10000 LOCATEO/197PRINT" PULSA TECLA PARA CONTINUAR" 

10002 TH=INKEYS: IFT$=""GO0TO10002 

10004 FORI=OTO3P:FORI=17TO193LOCATEI,JIPRINT" "¿NEXTI¿NEXTI: RETURN 


10100- GOSUB10004+LOCATEO, 137PRINT"PULSA O PARA HACER OTRO SISTEMA. ","PULSA F PAR 
A FINALIZAR." 


10102 TS= INKEYS$: IFTE=""THENGOTOLO1OZELSELFTS="0"ORTS="0"THENGOTO1O11OELSEIRTS="F 
"ORT$="*"THENGOTO1O120 


10110 CLS:GOTO 100 
10120 CLS:ILOCATE4.10:PRINT"PARA EL SIGUIENTE PROGRAMA" 
10130 LOCATE4.12:PRINT"PULSA PLAY EN EL CASSETTE" 


18189 ENBAD 
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SOPTNIARE 
ATAQUE A LOS DIQUES 


Mega Sao Demreaal —hooe) Mos 4 ord. Meeeed. emeagal DM DM 0d Mc Pleno. Pena! leen! Mr. rn 


URSO DE 


BASIC + 


MICROORDENADORES 


Otros Cursos: 
= Introducción a 
la Informática 
= Electrónica [con experimentos) 


El Curso CEAC a Distancia, 


= Contabilidad 
BASIC + Microordenadores, — Fotografía 
le va a introducir paso ww = Curso de Video 
a paso, con un cuidado — Decoración 
método, en uno de los temas más ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 
apasionantes de nuestros días DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


la programación de ordenadores. 
Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 

lenguaje de alt nivel 


h 4 deseo recibir a la mayor 
e: brevedad posible información 
IN sobre el Curso de: 


Nombre y apellidos Edad 


| Domicilio E Le EA 
NO Pta Tel 
€. Postal Población E 
C ¡UNO Provincia 
CENTRO DE ENSEÑANZA A DISTANCIA Profesión — A + 
AOUCACIÓN Y CIENCIA No B03918S CEAC. Aragón, 472 qMarne;¿5 3306 


(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto 08013 Barcelona 
Tel. (93) 245 3306 


E (Dpto. ] 08013 Barcelona D 72 


